home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Foxpro 2.6 {Windows} / INVOICES.QP_ / INVOICES.bin
Text File  |  1994-03-10  |  3KB  |  45 lines
  1.  
  2. * WIZNAME = WZ_BQUER
  3. * VERSION = .90
  4. * TIMESTAMP = 476774400.0000
  5. * CLIENTSERVER =
  6. * TABLES = C:\FPW26\SAMPLE\CATALOG\INVOICES.DBF;C:\FPW26\SAMPLE\CATALOG\DETAIL.DBF;C:\FPW26\SAMPLE\CATALOG\CUSTOMER.DBF;C:\FPW26\SAMPLE\CATALOG\OFFICES.DBF;C:\FPW26\SAMPLE\CATALOG\PARTS.DBF;C:\FPW26\SAMPLE\CATALOG\SALESMAN.DBF
  7. * JOINS = Detail;Ino;Invoices;Ino;0
  8. * JOINS = Customer;Cno;Invoices;Cno;0
  9. * JOINS = Offices;Ono;Salesman;Ono;0
  10. * JOINS = Parts;Pno;Detail;Pno;0
  11. * JOINS = Salesman;Salesman;Invoices;Salesman;0
  12. * FIELDS = Invoices.ino;Invoices.cno;Invoices.idate;Invoices.itotal;Customer.contact;Customer.company;Customer.address;Customer.city;Customer.state;Customer.zip;Customer.phone;Salesman.name;Offices.ono;Detail.qty;Parts.descript;Detail.price;Detail.ltotal;ITEMTOTAL=(Detail.qty * Parts.price);PRTPROFIT=( Detail.price - Parts.cost) * 100
  13. * SORT FIELDS = 
  14. * GROUP = Invoices.idate:1D;Invoices.ino:1N
  15. * SQL = SQL Select statement for Mailmerge Wizard:
  16. * SELECT Invoices.ino,Invoices.cno,Invoices.idate,Invoices.itotal,Customer.contact,Customer.company,Customer.address,Customer.city,Customer.state,Customer.zip,Customer.phone,Salesman.name,Offices.ono,Detail.qty,Parts.descript,Detail.price,Detail.ltotal,(Detail.qty * Parts.price) ITEMTOTAL,( Detail.price - Parts.cost) * 100 PRTPROFIT;
  17. *    FROM C:\FPW26\SAMPLE\CATALOG\INVOICES.DBF,C:\FPW26\SAMPLE\CATALOG\DETAIL.DBF,C:\FPW26\SAMPLE\CATALOG\CUSTOMER.DBF,C:\FPW26\SAMPLE\CATALOG\OFFICES.DBF,C:\FPW26\SAMPLE\CATALOG\PARTS.DBF,C:\FPW26\SAMPLE\CATALOG\SALESMAN.DBF;
  18. *    WHERE Invoices.Ino = Detail.Ino AND Invoices.Cno = Customer.Cno AND Salesman.Ono = Offices.Ono AND Detail.Pno = Parts.Pno AND Invoices.Salesman = Salesman.Salesman;
  19. *    GROUP BY Invoices.idate,Invoices.ino;
  20. *    INTO CURSOR Query
  21. IF !USED("Invoices")
  22.     USE LOCFILE("C:\FPW26\SAMPLE\CATALOG\INVOICES.DBF","DBF","Where is C:\FPW26\SAMPLE\CATALOG\INVOICES.DBF ?") AGAIN IN 0 ALIAS Invoices
  23. ENDIF
  24. IF !USED("Detail")
  25.     USE LOCFILE("C:\FPW26\SAMPLE\CATALOG\DETAIL.DBF","DBF","Where is C:\FPW26\SAMPLE\CATALOG\DETAIL.DBF ?") AGAIN IN 0 ALIAS Detail
  26. ENDIF
  27. IF !USED("Customer")
  28.     USE LOCFILE("C:\FPW26\SAMPLE\CATALOG\CUSTOMER.DBF","DBF","Where is C:\FPW26\SAMPLE\CATALOG\CUSTOMER.DBF ?") AGAIN IN 0 ALIAS Customer
  29. ENDIF
  30. IF !USED("Offices")
  31.     USE LOCFILE("C:\FPW26\SAMPLE\CATALOG\OFFICES.DBF","DBF","Where is C:\FPW26\SAMPLE\CATALOG\OFFICES.DBF ?") AGAIN IN 0 ALIAS Offices
  32. ENDIF
  33. IF !USED("Parts")
  34.     USE LOCFILE("C:\FPW26\SAMPLE\CATALOG\PARTS.DBF","DBF","Where is C:\FPW26\SAMPLE\CATALOG\PARTS.DBF ?") AGAIN IN 0 ALIAS Parts
  35. ENDIF
  36. IF !USED("Salesman")
  37.     USE LOCFILE("C:\FPW26\SAMPLE\CATALOG\SALESMAN.DBF","DBF","Where is C:\FPW26\SAMPLE\CATALOG\SALESMAN.DBF ?") AGAIN IN 0 ALIAS Salesman
  38. ENDIF
  39. SELECT Invoices.ino,Invoices.cno,Invoices.idate,Invoices.itotal,Customer.contact,Customer.company,Customer.address,Customer.city,Customer.state,Customer.zip,Customer.phone,Salesman.name,Offices.ono,Detail.qty,Parts.descript,Detail.price,Detail.ltotal,;
  40.         (Detail.qty * Parts.price) AS ITEMTOTAL,;
  41.         ( Detail.price - Parts.cost) * 100 AS PRTPROFIT;
  42.     FROM Invoices,Detail,Customer,Offices,Parts,Salesman;
  43.     WHERE Invoices.Ino = Detail.Ino AND Invoices.Cno = Customer.Cno AND Salesman.Ono = Offices.Ono AND Detail.Pno = Parts.Pno AND Invoices.Salesman = Salesman.Salesman;
  44.     GROUP BY Invoices.idate,Invoices.ino;
  45.     INTO CURSOR Query